home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_B.d64 / falkens maze (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  480 lines

  1. 3 poke53281,6:poke53280,6:print"":gosub5000:poke792,207:poke793,2
  2. 7 clr:restore
  3. 10 c0=0:c1=1:c2=2:c3=3:c4=4:c5=5:c6=6:c7=7:c8=8:c9=9
  4. 20 sc=1024:ll=40
  5. 30 dima(19,11),b(19,11)
  6. 40 a$(1)="north":a$(2)="east":a$(3)="south":a$(4)="west"
  7. 60 sp$="                                               "
  8. 70 m1=c0:print"[147]enter dimensions of labyrinth:"
  9. 75 say"enter dimentions of labrinth"
  10. 80 say"how wide"
  11. 81 input"how wide";h
  12. 90 ifh=c0orh>19thenprint"[145][145]";:goto80
  13. 100 say"how deep"
  14. 101 input"how deep";v
  15. 110 ifv=c0orv>10thenprint"[145][145]";:goto100
  16. 120 print"now creating a"h"x"v"labyrinth
  17. 121 say"now creating a labrinth with those dimentions":[151]53280,1
  18. 130 a[178]h[172]v[170]c1
  19. 140 q[178]c0:z[178]c0:x[178][181](h[172][187](h))[170]c1
  20. 150 aa[178]x
  21. 160 a(x,0)[178]c1:c[178]c2
  22. 170 r[178]x:s[178]c1:[137]240
  23. 180 [139]r[179][177]h[137]220
  24. 190 [139]s[179][177]v[137]210
  25. 200 r[178]c1:s[178]c1:[137]230
  26. 210 r[178]c1:s[178]s[170]c1:[137]230
  27. 220 r[178]r[170]c1
  28. 230 [139]a(r,s[171]c1)[178]c0[137]180
  29. 240 [139]r[171]c1[178]c0[137]560
  30. 250 [139]a(r[171]c1,s[171]c1)[137]560
  31. 260 [139]s[171]c1[178]c0[137]400
  32. 270 [139]a(r,s[171]c2)[137]400
  33. 280 [139]r[178]h[137]320
  34. 290 [139]a(r[170]c1,s[171]c1)[137]320
  35. 300 x[178][181](c3[172][187](c1))[170]c1
  36. 310 [145]x[137]870,910,950
  37. 320 [139]s[179][177]v[137]350
  38. 330 [139]z[178]c1[137]380
  39. 340 q[178]c1:[137]360
  40. 350 [139]a(r,s)[137]380
  41. 360 x[178][181](c3[172][187](c1))[170]c1
  42. 370 [145]x[137]870,910,1020
  43. 380 x[178][181](c2[172][187](c1))[170]c1
  44. 390 [137]370
  45. 400 [139]r[178]h[137]500
  46. 410 [139]a(r[170]c1,s[171]c1)[137]500
  47. 420 [139]s[179][177]v[137]450
  48. 430 [139]z[178]c1[137]480
  49. 440 q[178]c1:[137]460
  50. 450 [139]a(r,s)[137]480
  51. 460 x[178][181](c3[172][187](c1))[170]c1
  52. 470 [145]x[137]870,950,1020
  53. 480 x[178][181](c2[172][187](c1))[170]c1
  54. 490 [137]470
  55. 500 [139]s[179][177]v[137]530
  56. 510 [139]z[178]c1[137]870
  57. 520 q[178]c1:[137]540
  58. 530 [139]a(r,s)[137]870
  59. 540 x[178][181](c2[172][187](c1))[170]c1
  60. 550 [145]x[137]870,1020
  61. 560 [139]s[171]c1[178]c0[137]740
  62. 570 [139]a(r,s[171]c2)[137]740
  63. 580 [139]r[178]h[137]680
  64. 590 [139]a(r[170]c1,s[171]c1)[137]680
  65. 600 [139]s[179][177]v[137]630
  66. 610 [139]z[178]c1[137]660
  67. 620 q[178]c1:[137]640
  68. 630 [139]a(r,s)[137]660
  69. 640 x[178][181](c3[172][187](c1))[170]c1
  70. 650 [145]x[137]910,950,1020
  71. 660 x[178][181](c2[172][187](c1))[170]c1
  72. 670 [137]650
  73. 680 [139]s[179][177]v[137]710
  74. 690 [139]z[178]c1[137]910
  75. 700 q[178]c1:[137]720
  76. 710 [139]a(r,s)[137]910
  77. 720 x[178][181](c2[172][187](c1))[170]c1
  78. 730 [145]x[137]910,1020
  79. 740 [139]r[178]h[137]820
  80. 750 [139]a(r[170]c1,s[171]c1)[137]820
  81. 760 [139]s[179][177]v[137]790
  82. 770 [139]z[178]c1[137]950
  83. 780 q[178]c1:[137]800
  84. 790 [139]a(r,s)[137]950
  85. 800 x[178][181](c2[172][187](c1))[170]c1
  86. 810 [145]x[137]950,1020
  87. 820 [139]s[179][177]v[137]850
  88. 830 [139]z[178]c1[137]180
  89. 840 q[178]c1:[137]860
  90. 850 [139]a(r,s)[137]180
  91. 860 [137]1020
  92. 870 a(r[171]c1,s[171]c1)[178]c
  93. 880 c[178]c[170]c1:b(r[171]c1,s[171]c1)[178]c2:r[178]r[171]c1
  94. 890 [139]c[178]a[137]1120
  95. 900 q[178]c0:[137]240
  96. 910 a(r,s[171]c2)[178]c
  97. 920 c[178]c[170]c1
  98. 930 b(r,s[171]c2)[178]c1:s[178]s[171]c1:[139]c[178]a[137]1120
  99. 940 q[178]c0:[137]240
  100. 950 a(r[170]c1,s[171]c1)[178]c
  101. 960 c[178]c[170]c1:[139]b(r,s[171]c1)[178]c0[137]980
  102. 970 b(r,s[171]c1)[178]c3:[137]990
  103. 980 b(r,s[171]c1)[178]c2
  104. 990 r[178]r[170]c1
  105. 1000 [139]c[178]a[137]1120
  106. 1010 [137]560
  107. 1020 [139]q[178]c1[137]1080
  108. 1030 a(r,s)[178]c:c[178]c[170]c1:[139]b(r,s[171]c1)[178]c0[137]1050
  109. 1040 b(r,s[171]c1)[178]c3:[137]1060
  110. 1050 b(r,s[171]c1)[178]c1
  111. 1060 s[178]s[170]c1:[139]c[178]a[137]1120
  112. 1070 [137]240
  113. 1080 z[178]c1
  114. 1090 [139]b(r,s[171]c1)[178]c0[137]1110
  115. 1100 b(r,s[171]c1)[178]c3:q[178]c0:[137]180
  116. 1110 b(r,s[171]c1)[178]c1:q[178]c0:r[178]c1:s[178]c1:[137]230
  117. 1120 [139]z[179][177]c1[167]x[178][181](h[172][187](c1))[170]c1:b(x,v[171]c1)[178]b(x,v[171]c1)[170]c1
  118. 1130 [141]1140:[151]sc[170]12[172]ll[170]18[171]h[170]ll[172]v[170]2[172]aa,30:[137]1410
  119. 1140 [143] print maze ***
  120. 1150 m1[178]c1:[153]"load";:[139]v[178]11[167]1170
  121. 1160 [129]i[178]c1[164]11[171]v:[153]:[130]
  122. 1170 [129]j[178]v[164]c1[169][171]c1:[153][166]19[171]h)
  123. 1180 [129]i[178]c1[164]h:[153]" ";
  124. 1190 [139]b(i,j[171]c1)[178]c0[137]1230
  125. 1200 [139]b(i,j[171]c1)[178]c2[137]1230
  126. 1210 [153]"stop ";
  127. 1220 [137]1240
  128. 1230 [153]" ";
  129. 1240 [130]i
  130. 1250 [153]" ":[143] finish line
  131. 1260 [153][166]19[171]h)" ";
  132. 1270 [129]i[178]c1[164]h:[153]"stop ";
  133. 1280 [139]b(i,j[171]c1)[179]c2[137]1310
  134. 1290 [153]"stop ";
  135. 1300 [137]1320
  136. 1310 [153]" ";
  137. 1320 [130]i:[153]
  138. 1340 [130]j
  139. 1350 [153][166]19[171]h)"";:[129]i[178]c1[164]h
  140. 1360 [139]i[178]aa[137]1380
  141. 1370 [153]"  ";:[137]1390
  142. 1380 [153]" stop ";
  143. 1390 [130]i
  144. 1400 [153]" ":[142]
  145. 1410 w[178]aa
  146. 1420 [129]j[178]c0[164]v[171]c1
  147. 1430 [129]i[178]c1[164]h
  148. 1440 [139]j[137]1470
  149. 1450 [139]i[178]w[167]a(i,j)[178](c3[171]b(i,j))[172]c2:[137]1490
  150. 1460 m[178]c1:[137]1480
  151. 1470 m[178](a(i,j[171]c1)[175]2)[173]c2
  152. 1480 a(i,j)[178](c3[171]b(i,j))[172]c2[170]m[172]c8
  153. 1490 [139]i[178]c1[167]m[178]c1:[137]1510
  154. 1500 m[178](a(i[171]c1,j)[175]4)[173]c4
  155. 1510 a(i,j)[178]a(i,j)[170]m
  156. 1520 [130]i
  157. 1530 [130]j
  158. 1540 [153]"load";
  159. 1550 x[178]w:y[178]c0:z[178]c1:el[178]c1:er[178]c1
  160. 1560 [137]2260
  161. 1570 [153]"you can give the following instructions:";
  162. 1571 say"you can give the following instructions"
  163. 1580 [153]"fwait-move forwards one block;"
  164. 1581 say"f.  move forward one block"
  165. 1590 [153]"lwait-turn leftclose90 degrees;"
  166. 1591 say"l.  turn left 90 degrees"
  167. 1600 [153]"rwait-turn rightclose90 degrees;"
  168. 1601 say"r.  turn right 90 degrees"
  169. 1610 [153]"hwait-help!"
  170. 1611 say"h.  help"
  171. 1620 [142]
  172. 1630 [141]1140:[153]"you are here spc(, facing ";a$(z):ww$[178]a$(z)
  173. 1631 say"you are here facing":sayww$
  174. 1640 [151]sc[170]ll[172]12[170]18[171]h[170]ll[172]v[170]2[172]x[171](ll[172]2)[172]y,102
  175. 1650 [139]y[177]v[137]4520
  176. 1660 [153]"what now?";
  177. 1661 say"what now"
  178. 1670 [161]z$:[139]z$[178]""[137]1670
  179. 1680 [139]z$[178]"l"[137]1730
  180. 1690 [139]z$[178]"r"[137]1750
  181. 1700 [139]z$[178]"f"[137]2210
  182. 1710 [139]z$[178]"h"[137]1630
  183. 1720 [137]1670
  184. 1730 z[178]z[171]c1:[139]z[179]c1[167]z[178]z[170]c4
  185. 1740 [137]2260
  186. 1750 z[178]z[170]c1:[139]z[177]c4[167]z[178]z[171]c4
  187. 1760 [137]2260
  188. 1770 [142]
  189. 1780 [139]z[178]c1[167]a1[178]a[171]c1:b1[178]b[171]c1:[137]1830
  190. 1790 [139]z[178]c2[175]b[179]v[167]a1[178]a:b1[178]b:[137]1830
  191. 1800 [139]z[178]c3[167]a1[178]a[170]c1:b1[178]b[171]c1:[137]1830
  192. 1810 [139]z[178]c4[175]b[177]c1[167]a1[178]a:b1[178]b[171]c2:[137]1830
  193. 1820 el[178]c1:[142]
  194. 1830 f[178]a(a1,b1):[139]z[178]c1[137]1850
  195. 1840 [129]i[178]c2[164]z:f[178](f[175]14)[173]c2[170](f[175]c1)[172]c8:[130]
  196. 1850 el[178](f[175]c2)[173]c2:[142]
  197. 1860 [139]z[178]c1[167]a1[178]a[170]c1:b1[178]b[171]c1:[137]1910
  198. 1870 [139]z[178]c2[175]b[177]c1[167]a1[178]a:b1[178]b[171]c2:[137]1910
  199. 1880 [139]z[178]c3[167]a1[178]a[171]c1:b1[178]b[171]c1:[137]1910
  200. 1890 [139]z[178]c4[175]b[179]v[167]a1[178]a:b1[178]b:[137]1910
  201. 1900 er[178]c1:[142]
  202. 1910 f[178]a(a1,b1):[139]z[178]c1[137]1930
  203. 1920 [129]i[178]c2[164]z:f[178](f[175]14)[173]c2[170](f[175]c1)[172]c8:[130]
  204. 1930 er[178](f[175]c2)[173]c2:[142]
  205. 1940 [139]b[178]c0[137]2020
  206. 1950 [139]b[177]v[167]e[178]c3:[142]
  207. 1960 f[178]a(a,b[171]c1):[139]z[178]c1[137]1980
  208. 1970 [129]i[178]c2[164]z:f[178](f[175]14)[173]c2[170](f[175]c1)[172]c8:[130]
  209. 1980 c[178]f[175]c1:d[178](f[175]4)[173]c4:e[178](f[175]2)[173]c2
  210. 1990 [139]c[178]c0[167][141]1780
  211. 2000 [139]d[178]c0[167][141]1860
  212. 2010 [142]
  213. 2020 c[178]c0:d[178]c0:e[178][171]c1
  214. 2030 [139]z[179][177]1[137]2070
  215. 2040 e[178]c1
  216. 2050 [139]a[178]w[167]e[178]c0
  217. 2060 [142]
  218. 2070 [139]z[178]c3[167]e[178]c2:[142]
  219. 2080 [139]z[178]c2[175]a[178]h[167]e[178]c2:[142]
  220. 2090 [139]z[178]c4[175]a[178]c1[167]e[178]c2:[142]
  221. 2100 [142]
  222. 2110 [139]e[177]c0[137]2170
  223. 2120 [139]z[178]c1[167]b[178]b[170]c1:[142]
  224. 2130 [139]z[178]c2[167]a[178]a[170]c1:[142]
  225. 2140 [139]z[178]c3[167]b[178]b[171]c1:[142]
  226. 2150 [139]z[178]c4[167]a[178]a[171]c1:[142]
  227. 2160 [153]"";:[142]
  228. 2170 [139]e[178]c0[137]2190
  229. 2180 [153]"";
  230. 2190 s[178]c1
  231. 2200 [142]
  232. 2210 a[178]x:b[178]y
  233. 2220 [141]1940
  234. 2230 [141]2110
  235. 2240 x[178]a:y[178]b
  236. 2250 [139]e[177]c0[137]1650
  237. 2260 a[178]x:b[178]y
  238. 2270 [141]1940
  239. 2280 [143] display 5 depths
  240. 2290 [129]t[178]c1[164]5
  241. 2300 [141]2410
  242. 2310 [139]e[167]t[178]c5:[137]2350
  243. 2320 [141]2110
  244. 2330 [141]1940
  245. 2340 [139]e[177]c1[167]t[178]c5:[137]2350
  246. 2350 [130]t
  247. 2360 [139]x[178]w[175]y[178]c0[175]z[178]c1[137]2400
  248. 2370 [139]x[179][177]w[175]y[178]c0[175]z[178]c1[167][141]2160:[153]"ononononexternal wall":say"outside wal":[137]2390
  249. 2380 [137]2400
  250. 2390 [141]2160:[153]"ononyou're outside!
  251. 2391 say"your outside"
  252. 2400 goto1650
  253. 2410 ontgoto2420,2780,3220,3710,4250
  254. 2420 rem display depth 1
  255. 2430 print"[147]";
  256. 2440 ife>c2thenreturn
  257. 2450 ife<c0ore>c1thengosub2180:return
  258. 2460 fori=c1to21:ifc=c1thenprint"[167]";:goto2520
  259. 2470 ify=c0thenprint""mid$(w$,(iandc1)+c1,c8);:goto2520
  260. 2480 ifel=c1thenprint"[166][166][166][166][166][166][166][166]";:goto2520
  261. 2490 ifi=c2thenprint"[164][164][164][164][164][164][164][166]";:goto2520
  262. 2500 ifi<18thenprint"[166]";:goto2520
  263. 2510 print"       [146][166]";
  264. 2520 ife=c0thenprintspc(22);:goto2550
  265. 2530 ify=c0thenprint""mid$(w$,(iandc1)+c1,22);:goto2550
  266. 2540 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  267. 2550 ifd=c1thenprint"[165]":goto2610
  268. 2560 ify=c0thenprint""mid$(w$,(iandc1)+c1,c8):goto2610
  269. 2570 ifer=c1thenprint"[166][166][166][166][166][166][166][166]":goto2610
  270. 2580 ifi=c2thenprint"[166][164][164][164][164][164][164][164]":goto2610
  271. 2590 ifi<18thenprint"[166]":goto2610
  272. 2600 print"[166]       "
  273. 2610 next
  274. 2620 fori=c1toc3:ifc=c1or(x=wandy=c0)goto2680
  275. 2630 ifi<>c1then2650
  276. 2640 ifel=c0thenprint"[163][163][163][163][163][163][163][206]";:goto2690
  277. 2650 print""left$(sp$,c8-i)"[206]"left$(sp$,i-c1);
  278. 2660 ifi=c1goto2690
  279. 2670 goto2700
  280. 2680 printspc(c9-i)"[169]"left$(sp$,i-c1);:ifi<>c1then2700
  281. 2690 ife=c0thenprint"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:goto2710
  282. 2700 print"                      ";
  283. 2710 ifd=c1or(x=wandy=c0)goto2750
  284. 2720 ifi<>c1then2740
  285. 2730 ifer=c0thenprint"[205][163][163][163][163][163][163][163]":goto2760
  286. 2740 print""left$(sp$,i-c1)"[205]"left$(sp$,c8-i):goto2760
  287. 2750 print""left$(sp$,i-c1)"[223]"
  288. 2760 nexti
  289. 2770 return
  290. 2780 rem display depth 2
  291. 2790 print"";:z$=""
  292. 2800 fori=c1toc2:printz$;:ifc=c0goto2830
  293. 2810 printspc(i+c1)"[205]";spc(c2-i);:goto2860
  294. 2820 print"[205]";:goto2860
  295. 2830 ifi=c1thenprintspc(c4):goto2860
  296. 2840 ifel=c1thenprint"[164][164][164][164]";:goto2860
  297. 2850 print"[164]";
  298. 2860 ife=c0ori=c1thenprintspc(14);:goto2880
  299. 2870 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  300. 2880 ifd=c0goto2900
  301. 2890 printspc(c2-i)"[206]":goto2930
  302. 2900 ifi=c1thenprint:goto2930
  303. 2910 ifer=c1thenprint"[164][164][164][164]":goto2930
  304. 2920 print"[164]"
  305. 2930 next
  306. 2940 fori=c1to15:printz$;:ifc=c1thenprint"[167]";:goto2990
  307. 2950 ifel=c1thenprint"[166][166][166][166][146]";:goto2990
  308. 2960 ifi=c3thenprint"[164][164][164][166][146]";:goto2990
  309. 2970 ifi>12thenprint"   [166][146]";:goto2990
  310. 2980 print"   [166][146]";
  311. 2990 ife=c0thenprint"";:goto3010
  312. 3000 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
  313. 3010 ifd=c1thenprint"[165]":goto3060
  314. 3020 ifer=c1thenprint"[166][166][166][166]":goto3060
  315. 3030 ifi=c3thenprint"[166][146][164][164][164]":goto3060
  316. 3040 ifi>12thenprint"[166]   ":goto3060
  317. 3050 print"[166]"
  318. 3060 next
  319. 3070 fori=c1to4:printz$;:ifc=c1goto3120
  320. 3080 ifi<>c1goto3110
  321. 3090 ifel=c0thenprint"[163][163][163][206]";:goto3130
  322. 3100 print"   [206]";:goto3130
  323. 3110 print""left$(sp$,c4-i)"[206]"left$(sp$,i-c1);:goto3140
  324. 3120 printspc(c4-i)"[169]"left$(sp$,i-c1);:ifi<>c1then3140
  325. 3130 ife=c0thenprint"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:goto3150
  326. 3140 print"              ";
  327. 3150 ifd=c1goto3190
  328. 3160 ifi<>c1then3180
  329. 3170 ifer=c0thenprint"[205][163][163][163]":goto3200
  330. 3180 print""left$(sp$,i-c1)"[205]"left$(sp$,c4-i):goto3200
  331. 3190 print""left$(sp$,i-c1)"[223]":goto3200
  332. 3200 nexti
  333. 3210 goto
  334. 3220 rem display depth 3
  335. 3230 print"";:z$=z$+""
  336. 3240 fori=c1to3:printz$;:ifc=c0goto3260
  337. 3250 printspc(i-c1)"[205]"spc(c3-i);:goto3290
  338. 3260 ifi<c3thenprint"";:goto3290
  339. 3270 ifel=c1thenprint"[164][164][164]";:goto3290
  340. 3280 print"[164]";
  341. 3290 ife=c0ori<=c2thenprint"";:goto3310
  342. 3300 print"[164][164][164][164][164][164][164][164]";
  343. 3310 ifd=c0goto3330
  344. 3320 printspc(3-i)"[206]":goto3360
  345. 3330 ifi<c3thenprint:goto3360
  346. 3340 ifer=c1thenprint"[164][164][164]":goto3360
  347. 3350 print"[164]"
  348. 3360 next
  349. 3370 fori=c1to9:printz$;:ifc=c1thenprint"[167]";:goto3420
  350. 3380 ifel=c1thenprint"[166][166][166]";:goto3420
  351. 3390 ifi=c2thenprint"[164][164][166]";:goto3420
  352. 3400 ifi>c7thenprint"  [146][166]";:goto3420
  353. 3410 print"  [166]";
  354. 3420 ife=c0thenprint"";:goto3440
  355. 3430 print"[166][166][166][166][166][166][166][166]";
  356. 3440 ifd=c1thenprint"[165]":goto3490
  357. 3450 ifer=c1thenprint"[166][166][166]":goto3490
  358. 3460 ifi=c2thenprint"[166][164][164]":goto3490
  359. 3470 ifi>c7thenprint"[166]  [146]":goto3490
  360. 3480 print"[166]"
  361. 3490 next
  362. 3500 fori=c1to3:printz$;:ifc=c1goto3560
  363. 3510 ifi<>c1then3530
  364. 3520 ifel=c0thenprint"[163][163][206]";:goto3570
  365. 3530 print""left$(sp$,c3-i)"[206]"left$(sp$,i-c1);
  366. 3540 ifi=c1then3570
  367. 3550 goto3580
  368. 3560 printspc(c3-i)"[169]"left$(sp$,i-c1);:goto3540
  369. 3570 ife=c0thenprint"[163][163][163][163][163][163][163][163]";:goto3590
  370. 3580 print"        ";
  371. 3590 ifd=c1goto3650
  372. 3600 ifi<>c1then3620
  373. 3610 ifer=c0thenprint"[205][163][163]":goto3690
  374. 3620 print""left$(sp$,i-c1)"[205]"left$(sp$,c3-i):goto3690
  375. 3650 print""left$(sp$,i-c1)"[223]"
  376. 3690 nexti
  377. 3700 return
  378. 3710 rem display depth 4
  379. 3720 print"";:z$=z$+""
  380. 3730 fori=c1to2:printz$;:ifc=c0goto3770
  381. 3740 printspc(i-c1)"[205]"spc(c2-i);:goto3810
  382. 3770 ifi=c1thenprint"";:goto3810
  383. 3790 ifel=c1thenprint"[164][164]";:goto3810
  384. 3800 print"[164]";
  385. 3810 ife=c0ori=c1thenprint"";:goto3830
  386. 3820 print"[164][164][164][164]";
  387. 3830 ifd=c0goto3870
  388. 3840 ifi=c1thenprint"";
  389. 3850 print"[206]":goto3910
  390. 3870 ifi=c1thenprint:goto3910
  391. 3890 ifer=c1thenprint"[164][164]":goto3910
  392. 3900 print"[164]"
  393. 3910 next
  394. 3920 fori=c1to5:printz$;:ifc=c1thenprint"[167]";:goto3970
  395. 3930 ifel=c1thenprint"[166][166][146]";:goto3970
  396. 3940 ifi=c1thenprint"[164][166][146]";:goto3970
  397. 3950 ifi>4thenprint"[163][166][146]";:goto3970
  398. 3960 print" [166][146]";
  399. 3970 ife=c0thenprint"";:goto3990
  400. 3980 print"[166][166][166][166][146]";
  401. 3990 ifd=c1thenprint"[165]":goto4040
  402. 4000 ifer=c1thenprint"[166][166]":goto4040
  403. 4010 ifi=c1thenprint"[166][146][164]":goto4040
  404. 4020 ifi>c4thenprint"[166] ":goto4040
  405. 4030 print"[166]"
  406. 4040 next
  407. 4050 fori=c1to2:printz$;:ifc=c1goto4100
  408. 4060 ifi<>c1then4080
  409. 4070 ifel=c0thenprint"[163][206]";:goto4130
  410. 4080 print""left$(sp$,c2-i)"[206]"left$(sp$,i-c1);
  411. 4085 ifi=c1then4130
  412. 4090 goto4140
  413. 4100 ifi=c1thenprint"";
  414. 4110 print"[169]";
  415. 4120 ifi=c2thenprint" ";:goto4140
  416. 4130 ife=c0thenprint"[163][163][163][163]";:goto4150
  417. 4140 print"    ";
  418. 4150 ifd=c1goto4200
  419. 4160 ifi<>c1then4180
  420. 4170 ifer=c0thenprint"[205][163]":goto4230
  421. 4180 print""left$(sp$,i-c1)" "left$(sp$,c2-i):goto4230
  422. 4200 print"";:ifi=c2thenprint" ";
  423. 4210 print"[223]"
  424. 4230 nexti
  425. 4240 return
  426. 4250 rem display depth 5
  427. 4260 print"";:z$=z$+""
  428. 4270 printz$;:ifc=c0goto4290
  429. 4280 print"[205]";:goto4300
  430. 4290 print"[164]";
  431. 4300 ife=c0thenprint"";:goto4320
  432. 4310 print"[164][164]";
  433. 4320 ifd=c0goto4340
  434. 4330 print"[206]":goto4350
  435. 4340 print"[164]"
  436. 4350 fori=c1to3:printz$;:ifc=c1goto4370
  437. 4360 print"[166]";:goto4380
  438. 4370 print"[167]";
  439. 4380 ife=c0thenprint"";:goto4400
  440. 4390 print"[166][166]";
  441. 4400 ifd=c0thenprint"[166]":goto4420
  442. 4410 print"[165]"
  443. 4420 next
  444. 4430 printz$;:ifc=c1goto4450
  445. 4440 print"[206]";:goto4460
  446. 4450 print"[169]";
  447. 4460 ife=c1thenprint"  ";:goto4480
  448. 4470 print"[163][163]";
  449. 4480 ifd=c1goto4500
  450. 4490 print"[205]":goto4510
  451. 4500 print"[223]"
  452. 4510 return
  453. 4520 print"[147]you're out!
  454. 4521 say"your out"
  455. 4530 [139]m1[167][153]"":[137]4560
  456. 4540 [153]"loadhere is the maze":say"here is the maze":[141]1780
  457. 4550 [141]1140
  458. 4560 [151]792,207:[151]793,2:[151]53280,6:[151]53281,6
  459. 4561 [153]"load  another game professor ?":say"another game professor"
  460. 4562 [161]z$:[139]z$[178]""[167]4562
  461. 4570 [139]z$[178]"y"[137]7
  462. 4580 [153]"load  do you want to return to war games ?":z$[178]""
  463. 4581 say"do you want to return to war games?"
  464. 4582 [161]z$:[139]z$[178]""[167]4582
  465. 4585 [139]z$[178]"y"[167]5500
  466. 4587 [153]"load  bye bye":say"bye bye.":[128]
  467. 4590 [129]i[178]0[164]10:[129]j[178]0[164]19
  468. 4600 [153][201]("0"[170][202]([196](a(j,i)),2),2)"";:[130]j:[153]:[130]i
  469. 4610 [153]:[153]
  470. 4620 [129]j[178]v[171]1[164]0[169][171]1:[129]i[178]1[164]h
  471. 4630 [153][201]("0"[170][202]([196](b(i,j)),2),2)"";:[130]i:[153]:[130]j
  472. 5000 [153]"load":[151]720,8:[151]739,52:[151]744,53:[151]749,54:[151]754,48:[151]758,169
  473. 5010 [139][194](49153)[179][177]187[167][153][163]8);"  loading sub programs  wait"
  474. 5020 [139][194](49153)[179][177]187[167][147]"sam",8,1
  475. 5025 [151]743,169:[158]38144
  476. 5030 [151]52,125:[151]54,125:[151]56,125:]re:]li 1:]sp 68:]pi 68:]kn 150,150
  477. 5040 [142]
  478. 5500 [153]"loadload";[199](34);"war menu";[199](34);",8,1"
  479. 5600 [151]631,19:[151]632,13:[151]633,82:[151]634,117:[151]635,13:[151]198,5:[128]
  480.